home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / sim.arc / SPECIAL.SRC < prev    next >
Encoding:
Text File  |  1987-04-07  |  1.0 KB  |  56 lines
  1. ' SPECIAL (LOCKed) Menu    Version 1.00
  2. ' SIMS (c) David Thomas Stewart 1984-1987
  3. ' Distributed by Synergy Development - THIS PROGRAM IS PUBLIC DOMAIN
  4.  
  5. screen(n)
  6. lock
  7.  
  8. normal
  9. foreground(white+)
  10. background(red)
  11. setdate
  12. settime
  13.  
  14. date(2,9)
  15. time(65,9)
  16.  
  17. normal
  18. foreground(green)
  19. setattr
  20.  
  21. box(0,0)-(79,24),"║"
  22. fill(1,0),"═",78
  23. fill(1,24),"═",78
  24. fill(1,8),"─",78
  25. fill(1,10),"─",78
  26. .(0,0)"╔"
  27. .(0,24)"╚"
  28. .(79,0)"╗"
  29. .(79,24)"╝"
  30. .(0,8)"╟"
  31. .(79,8)"╢"
  32. .(0,10)"╟"
  33. .(79,10)"╢"
  34.  
  35. foreground(white+)
  36. background(blue)
  37. setattr
  38. .(28,9)" Special Menu Version 1.00 "
  39.  
  40. normal
  41. foreground(yellow)
  42. setattr
  43. .(14,2)"    ██████▒  █████▒  ████▒   ████▒    █▒  ██████▒  █▒"
  44. .(14,3)"   █▒       █▒  █▒  █▒      █▒       █▒  █▒   █▒  █▒"
  45. .(14,4)"  ██████▒  █████▒  ████▒   █▒       █▒  ██████▒  █▒"
  46. .(14,5)"      █▒  █▒      █▒      █▒       █▒  █▒   █▒  █▒"
  47. .(14,6)"██████▒  █▒      ██████▒ ██████▒  █▒  █▒   █▒  ██████▒"
  48.  
  49. option start
  50. option(F1,11,13)" F1 - Return to DEMO Menu ","MENU DEMO"
  51. option end
  52.  
  53. border(grey)
  54.  
  55. end
  56.